000100******************************************************************
000200*PROGRAM : Build all the files needed                            *
000300*AUTHOR  : Minh-Tuan Ta                                          *
000400******************************************************************
000500 IDENTIFICATION DIVISION.
000600 PROGRAM-ID. BUILDPRG.
000700 ENVIRONMENT DIVISION.
000800 DATA DIVISION.
000900 WORKING-STORAGE SECTION.
001000 01  WS-VARS.
001100     03  WS-DATE.
001200         05  WS-YEAR         PIC 99.
001300         05  WS-MONTH        PIC 99.
001400         05  WS-DAY          PIC 99.
001500     03  WS-SEL              PIC X.
001600 SCREEN SECTION.
001700 PROCEDURE DIVISION.
001800 100-MAIN.
001900     CALL 'ZIP-B'
002000     CALL 'CRS-B'
002100     CALL 'BLDG-B'
002200     CALL 'INST-B'
002300     CALL 'STU-B'
           CALL 'SCHED-B'
002400     CALL 'REG-B'
002500     EXIT PROGRAM.
002600
